home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 20 Music & Utilities / GILLIGAN.PIL (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  12KB  |  26 lines
  1. 100 PRINT CHR$(147):PRINT " SIDPLAYER SONG AND PICTURE DISSOLVER"
  2. 110 PRINT " BY CRAIG CHAMBERLAIN 6/25/86":PRINT:SP=783
  3. 130 WR=3032:A=WR+70:L=PEEK(A):FOR K=1 TO L:F$=F$+CHR$(PEEK(A+K)):NEXT:A=A+K
  4. 140 ML=PEEK(A)+256*PEEK(A+1):MA=A+2:A=MA+ML:PL=PEEK(A)+256*PEEK(A+1):PA=A+2
  5. 300 PRINT " THIS PROGRAM WRITES TO DISK
  6. 305 [153] " THE MUSIC AND PICTURE FILES":[153] " FOR ONE SIDPLAYER SONG":[153]
  7. 320 [153] " INSERT A DISK TO RECEIVE":[153] " THE MUSIC AND PICTURE FILES,
  8. 325 PRINT " AND PRESS ANY KEY":PRINT
  9. 330 POKE 198,0:WAIT 198,15:GET G$
  10. 400 OPEN 2,8,15,"I0:":INPUT#2,A,B$,C,D:IF A GOTO 710
  11. 410 PRINT " WRITING " F$ ".MUS"
  12. 420 OPEN 1,8,2,F$+".MUS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  13. 430 SYS WR,MA,MA+ML:IF PEEK(SP)AND1 GOTO 700
  14. 440 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  15. 510 PRINT " WRITING " F$ ".PIC"
  16. 520 OPEN 1,8,2,F$+".PIC,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  17. 530 SYS WR,PA,PA+PL:IF PEEK(SP)AND1 GOTO 700
  18. 540 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  19. 600 PRINT:PRINT " SCRATCH " F$ ".PIL? ";
  20. 610 WAIT 198,15:GET G$:IF G$="N" THEN PRINT "NO":GOTO 690
  21. 620 IF G$<>"Y" GOTO 610
  22. 630 PRINT "YES":PRINT#2,"S0:"+F$+".PIL":INPUT#2,A,B$,C,D:IF A>2 GOTO 710
  23. 690 CLOSE 2:END
  24. 700 INPUT#2,A,B$,C,D
  25. 710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  26.